Make "unseen" tracking work again in Gnus

* lisp/gnus/gnus-sum.el (gnus-update-marks): Make "unseen"
tracking work again.

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index adb9b02c3c7a32d8570db35b2be8ed12f781993a..d3e5ece63ae914c0382d160b014d56de215ed78d 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -6036,6 +6036,11 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                (setq arts (cdr arts)))
              (setq list (cdr all)))))
 
+       ;; When exiting the group, everything that's previously been
+       ;; unseen is now seen.
+       (when (eq (cdr type) 'seen)
+         (setq list (gnus-range-add list gnus-newsgroup-unseen)))
+
        (when (eq (gnus-article-mark-to-type (cdr type)) 'list)
          (setq list (gnus-compress-sequence (set symbol (sort list '<)) t)))